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FOR I=0 TO 5: BS[I]=1: 


Mi $sicE =6Command 


MWD[01D12H]=OF120H 
DIM MX[10],MY[10],BL[2],MD[10] 
SH=1: Kl=l: K9=l: K8=5: M7=5: P6=0: DIM MZ[10] 


SN=3 
- DIM MH[10],MS[10], Mi[10], M2[10] \ML[10], MT[10] 


DIM BP[5],PS({5],PX{5],PY(5],PC{5],BS[5] 
NEXT I 
MC=3+INT[RND*12.99] 


IF MC= 


BG=K1: FG= =3+INT[RND*L2. 99]: IF BG)>1L5 THEN BG=l 
IF BG= 


FG THEN GOTO 90 
BG THEN GOTO 80 


COLOUR FG,BG: GRAPH 


MAG O, 


SPRITE 1,0,-16,0,0:. SPRITE 2,0 


SHAPE 
SHAPE 
SHAPE 
SHAPE 


~ SHAPE. 


SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 
SHAPE 


O: F6=6 

,-16,0,0 
0 02H, 070FH,0707H,0703H 
1,OCLEH,037B5H, 03D3FH,03B31H 
2,010H,0387CH', 03838H ,03870H 
3,0101H,0107H,0C3FH,07FFFH 
4,0F161H,061FFH, OFFH,OFFFFH 

5 ,OEOAOH ,OAOFOH,O18FCH, OFEFFH 

6 ,0404H,0404H,021AH,0397DH 
7,0,0,020H ,04080H a | 

8, 07756H, OSF7FH, OFFE9H, OE9F9H 

9 ,0C030H, OFOOH, 0, O080FEH 
10,0,0,08142H,02119H 
11,0,0,0204H,0830H 
12,0701H,02B3FH,01716H,O1EFEH 
13,0COH, OASF8H, OFO50H,0507FH 
14,0,0,04H,0201H 
15,02020H,02020H,04058H, O9CBEH 
16,030CH,OFOOOH,0,O1EFH 
17,OEE6AH, OFAFEH , OFE97H,0979FH 
18,OFFFFH, OFFFFH,OFFFFH, OFFFFH 
32,0,0,0,0 

33,0,0,0,0 . 
34,01010H,O1OFEH,O1O1OH, 010008 
40,0,0,03EH,07F7FH: SHAPE 41,0,0,0,0: SHAPE 42, 
43,07E1CH,0,0,0: SHAPE 44,0,OFFH,OFFFFH,OFFFFH 


MARK RUDNICKI« 
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- Gasol Kays. - Move targel 6s 
ASD - Fie ton Bates. 


0, 0, 0,0 


45,0,080H,OCOEOH,OEOCOH: SHAPE 46,0,01H,0303H,O100H > 
47,07F3EH,0,0,0: SHAPE 48,0FFH,OFFH,OFFFFH,OFFFFH 
49 ,O0EO0H,01000H,OCOFOH,OEOCOH: SHAPE 50,03H, 0408H, O107H, 0301H 


51,0FFE7H,01800H,0,0 


60,0,0C370H,03F1FH,0107H: SHAPE 61,0,0E080H, OF8FCH, 0CO80H 
62,O0FFO8H,01C3FH,03F3EH,O1COOH: SHAPE 63,08002H,06FEH,0,0 


70,0FC84H, OBFA5H, OASFDH ,0213FH 


DEF ENB[X, YJ=(MT[T] -X)/(152- Y) 

C=0: F5=0: F/=0 

DEF FNA[X,Y]=INT[ (X+0.5)/8]+32*INT[(Y+0.5)/8] 
SPRITE 0,0,-16,34,FG 

FOR I=0 TO 5: PS[I]=0: NEXT I 

DATA 644,647,650,659,662,665 


FOR I 


=0 TO 5 


READ BP{I] 


NEXT I 


FOR I=0 TO 255: A=INT[RND*9 ] 
A=A+16: IF I<32 OR I>224 OR (17112 AND 14144) THEN A= A+ 


15-2 
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PLOT 1,191 TO 1,191-A 
NEXT I 


COLOUR 13,BG 
IF BG=13 THEN COLOUR 15, BG 
FOR I=0 TO 5 

IF BS[1I]=0 THEN GOTO 650 

FOR J=0 TO 2 

SPUT BP[I]+J,J: SPUT BP[I]+J+32,J+3 

NEXT J 
NEXT I 

COLOUR 6,BG 

IF BG+6 THEN COLOUR 14,BG 

SPUT 608,6: SPUT 609,7: SPUT 640,8: SPUT 641,9 

SPUT 623,10: SPUT 624,11: SPUT 655,12: SPUT 656,13 
SPUT 638,14: SPUT 639,15: SPUT 670,16: ‘SPUT 671,17 
PX=128: . PY=80 

PRINT @(12, 3);"GET READY.": ? @(10,5)3"X"sK13" SHEET '';SH 
WAIT 150: PRINT @(12,3)3" Hs 2 @(10,5)3" | , oe 
FOR I=O0 TO M7: MS[I]=1 : 
IF SH>3,AND RND?O.9 THEN: MS{T]= 2 

MX{I]= =IfT(RND#255 MY[1]=0 

MD[I]=(( (BP[RND*5.99 ]-638. oye tT toe 
MI[IJ=MX(I]: M2[I]=MY(I] 

MH[I]= INT[ (250*RND)/SH] 
NEXT I 
COLOUR MC,BG 
GOTO 1050! 


F6=0: FOR I=0 TO M7 


F6=F6+MS[I] 

IF MS[Ij)]=0 THEN GOTO 970 | 

IF MH[I']<>0 THEN MH[I]=MH[I]-1: GOTO 970 

IF MS[I]=2 THEN GOSUB 1980: GOTO 970 

IF MS[I]=3 THEN GOSUB. 2040: GOTO 970 | 

IF COL[MX{1],MY[I]+1]<>BG AND COL[MX[I]+1,MY[I]+1]<>BG THEN COTO 980. 
PLOT MX{I],MYI[I] 

MY[{I]=MY[1I]+K9: IF'MY([I]9153 THEN My(I]=My¥(1]- -K9: GOTO 980 
MX{ 1 ]=MX{1]+MD[I]*K9 

PLOT TO MX[I],MY[T] 

IF RND?O.9 AND MS[I+1]=0 AND MY[I]<88 THEN GOTO 950 

GOTO 970 : 
MI[I+]]=MKX[I]: M2[I+1]=MY[I]: MS[I+l]=l: MX[I+1]=MX[I]: MY[I+1]=MY[T] 
MD[I+1 ]=(((BP[RND*5.99 ]-638.5)*8)-MX[1I])/(152-MY[T]) 
NEXT I: RETURN | : 
MS[I]=O: UNPLOT MX[I],MY[I] TO MI[I],M2[T] | 
UNPLOT MX[I]-1,MY[I] TO MI[1I]-1,M2[T] | 
UNPLOT MX[I]+1,MY[{1I] TO MI[I]+1,M2[T] 

IF MY[I]}=150 THEN GOSUB 1410: GOTO 970 

SC=SC+K1*25: A5=15: IF FG=15 THEN A5=1 

COLOUR A5,FG: PRINT @(5, 23)5 SC: COLOUR MC,BG 

GOTO 970 

A=CRF[0]: B=CRF[0]: IF A<)B THEN GOTO 1130 

M=KEY[0] | 

IF A=16883 OR A=21491 OR A=17651 THEN GOSUB 1190 

IF A=2291 AND PX>7 THEN PX=PX-4: GOTO 1120 

IF A=2547 AND PX<240 THEN PX=PX+4: GOTO 1120 


1$-3 


Sq 


1100 IF A=3059 AND PY>8 THEN PY=PY-4: GOTO 1120 
1110 IF A=2803 AND PY<152 THEN PY=PY+4 
1120 SPRITE 0,PX,PY | 
1130 C=C+l: IF MOD[C,K8]=0 THEN GOSUB 820: IF F6&¢>0 THEN GOTO 1050: ELSE STOP 
1140 IF F6=0 THEN F7=F7+1: IF F730 THEN GOTO 1630 _ 4 de 
1150 IF F6=0 AND F7=2 THEN F6=6: GOTO 730 oa 
1160 IF P6 THEN GOSUB 1890: GOTO 1180 
1170 IF RND?0.997 THEN GOSUB 1810 | rr a re , 
1180 GOSUB 1290: GOTO 1050 | — esi 
1190 FOR I=0 TO 5: IF PS{I]=0 THEN GOTO 1210 
1200 NEXT I: RETURN | | 
1210 PS[I]=l 
1220 IF A=21491 THEN GOTO 1270 
1230 IF A=17651 THEN GOTO 1280 
1240 PLOT 16,152 TO PX,PY 
1250 WAIT 3: UNPLOT 16,152 TO PX, PY 
1260 PX[1I]=PX:. PY[I]=PY: PC[{I]=0: RETURN 
1270 PLOT 127,152 TO PX,PY: WAIT 3: UNPLOT 127,152 TO PX,PY: GOTO 1260 = 
1280 PLOT 232,152 TO PX,PY: WAIT. 3: UNPLOT 232,152 TO PX,PY: GOTO 1260 | 
1290 FOR I=0 TO 5: IF PS{I]=0 THEN NEXT I: RETURN oe Pe Bue ee 
1300 A1=FNA[PX[I],PY[I]] 
1310 PC[I]=PC[I]+l | : | 
1320 IF MOD[PC[1],4]<)0 THEN GOTO 1340 
1330 ON INT[PC[I]/4] THEN GOTO 1360,1370,1380, 1390, 1400 
1340 NEXT I: RETURN 
1350 SPUT Al,Cl: SPUT Al+1,C2: SPUT Al- 1, C3: SPUT Al+32,C4: GOTO 1340 
1360 Cl=40: C2= 41: C3=42: C4= 43: GOTO 1350 
1370 .Cl=44: C2=45: C3=46: C4=47: GOTO 1350 
1380 Cl=48: C2=49: C3=50: C4=51: GOTO 1350 
1390 Cl=52: C2=53: C3=54: C4=55: GOTO 1350 
1400 Cl=32: C2=32: C3=32: C4=32: Poli dRe: GOTO 1350 
1410 ES=0: X=INT[ (MX[1I]/8)+641.5] ; : 
1420 FOR H=0 TO 5: IF ABS[X- RETR S AND SGN X- petal) 1 THEN COTO 1440. 
1430 NEXT H: RETURN © 7 | as 
1440 Al=BP[H]+l: ES=3: BS[H]= =0 
1450 ES=ES+l: IF ES=21 THEN GOTO 1550. 
1460 ON INT[ES/4] THEN GOTO 1500,1510, 1520,1530, 1540. 
1470 REM ae 
1480 SPUT Al,Cl: SPUT Al+1,C2: SPUT Al-1,C3: SPUT 41432504 
1490 GOTO 1450 | | 
1500 Cl=40: C2=41: C3=42: C4=43: GOTO 1480 
1510 Cl=44: C2=45: C3=46: C4=47: GOTO 1480 
1520 Cl=48: C2=49: C3= 5Q: C4=51: GOTO 1480. 
1530 Cl=52: C2=53: C3=54: C4=55: GOTO 1480 
1540 Cl=32: C2=32: C3=32: C4=32:. GOTO 1480. ~. et tte ok 
1550 A=0: FOR N=O TO 5: A=A+BS[N]: NEXT N: IF AYO THEN RETURN |. 
1560 WAIT 200: COLOUR FG,BG ce i 7 
1570 PRINT @(12,3);'"'GAME OVER" 
1580 SC=0 : : 
1590 WAIT 200: ? @(4, 5) "PRESS <SPACE? TO RESTART. " 
1600 IF KEY[32] THEN GOTO 1620 | 
1610 GOTO 1600 
1620 WAIT 200: RESTOR : GOTO 10 
1630 BC=0 
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1800 
1810 
1820 
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1840 
1850 
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1870 
1875 
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1890 
1900 
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1920 
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1940 
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1970 
1980 
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2000 
2010: 
2020: 
2030: 
2040 
2050, 
2060 
2070 
2080 
2090 
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2120 
2130 
2140 
2150 
2160 
2170 


P6=1: 


FOR I=0 TO 5 

IF BS[I]=l1 THEN BC=BC+1004K1 

IF BS[{I]=0 THEN GOTO 1700 

FOR J=0 TO 2: SPUT J+4*(BC/(100*K1))+160,J 

SPUT J+4*(BC/(100*K1))+192,J+3 3 

NEXT J 

WAIT 50 

PRINT @(10,3);"BONUS ";BC 
NEXT I 
SC=SC+BC 
SN=3 
SH=SH+1 ian . a om “ds 
IF MOD[SH,3]<70 THEN GOTO 1780 | ee 
IF SH>3 THEN K9=K9+1: IF K9¥6 THEN K9=5 nn 
M7=M7+1: IF M7¥9 THEN M7=9 
WAIT 150: K1=INT[(SH+1)/2]: 
RESTOR 
GOTO 80. 
 FY= 32+INT[RND*100 ] 
ON 1+INT[RND*1.99] THEN GOTO 1850,1870 
SPRITE 1,FX,FY,FV,FC: SPRITE 2,FX+8,FY,FV+1,FC: RETURN 
REM | 
FD=2:. FX=2: FV=60: FC=6: 
GOTO 1830 


P6=0 


ew ee ee 


IF BG=6 OR BG=8 OR BG=9 THEN FC=10: GOTO 1830 


-FD=-2: FX=238: FV=62: FC=4 


IF BG=7 OR BG=5 OR BG=4 THEN FC=15: GOTO 1830 
GOTO 1830 
IF FD=-2 THEN GOTO 1950 
FX=FX+FD se 
IF FX>240 THEN P6=0: SPRITE 1,0,-16,0, 0: SPRITE 2,0,-16,0,0: RETURN 
FOR I=0 TO 5: IF PS[{I]=0 THEN GOTO 1940. 
IF ABS[PX[I]- -FX-8 ]<8 AND ABS[PY({I]- -FY-4]¢4, THEN GOTO hed 
NEXT I 
SPRITE 1,FX,FY: SPRITE 2,FX+8,FY: RETURN 
FX=FX+FD 
IF FX<4 THEN P6=0: SPRITE 1,0, 
GOTO 1910 
SC=SC+K1*250: SPRITE 1,0,-16,0,0: SPRITE 2,0,-16,0,0: P6= QO: RETURN 
MZ[I]J=SN: SN=SN+1 | 
MS[1I]=3 | | 
ML[1]=7: IF BG=7 OR BG=4 OR BG=5 THEN ML[I]= oY 
SPRITE MZ[I],MX[1I],MY[1I],70,ML[T] | a 
MT[I]=(BP[A]-638)*8 


-16,0,0: SPRITE 2,0,-16,0,0: RETURN 


A=INT[RND*5.99]: 
RETURN 

L9=K9: IF K972 THEN L9=2.5 

MY[I]=MY[I]+2*(L9): MX[ I ]=MX[1]+(L9)*MD[1]*2 

IF COL[MX(1]+4,MY[1]+4]%>BG AND COL[MX[I]+5,MY[1]+4]< BG THEN GOTO 2170 
IF MY[{I]=150 THEN POP : SPRITE MZ[I],0,-16,0,0: MS[I]=0: GOTO 1410 

IF COL[MX[1I]+4,MY(1]+10]%>BG AND COL[MX[1]+5, MY[1]+10]< 986 THEN GOTO 2110 
SPRITE MZ[{1I],MX[I],MY[T] 
RETURN. 

MY[(I]=MY[I]- ~INT[RND*8 }: 
IF MY{I]¢1 THEN MY[{I]=4 
IF MX{1]<4 THEN MX[IJ=4: GOTO 2150 

IF MX(1]>248 THEN MX[(1]=248 _ 

MD({ I ]=FNB(MX(I],MY[I]]. | 

GOTO 2090 

SC=SC+K9*100: MS[I]=0: SPRITE MZ[I],0,-16,0,0: RETURN 


MX[ I ]J=MX[1I]-4+INT[RND*7.99] 
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CAmyoNn | > MARK Rudnick! 
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a ‘ | oe 
a ee ee 
REM phe “Go YE oy! es os cen 
BG=1: FG=12 rs > ewe lee and ign 
COLOUR FG,BG . ) | 
CHAR 023H,0,03FFCH,0 | | a RF ROUEN SE. fovwara 
CHAR 024H, OFH, OFFFFH,OFOOOH BL 


CHAR 025H,03FFH, OFFFFH,OFFCOH 
CHAR 026H,079E3H, OCFFH,OF300H 


- CHAR 027H,OCFH, OFF30H,0C7BFH 


CHAR O61H,02iC2H,0i1C7/3H, OE FBEH 


CHAR 062H,0DD58H,0C18DH,ODDFFH 


CHAR 063H,082H,0820H,08200H 
CHAR 064H 04708, 0431CH,OF7FFH: CHAR 065H, 0300H ,020C3H, O8F3EH 
CHAR 066H,04FOH,04314H,0947FH: CHAR 067H,0380H,02040H, 0813EH - 
CHAR 068H,0410H,0439EH,OFFFFH: CHAR 069H,0,020CBH, OAFBEH 
CHAR O6AH, OF79CH, 0431CH,OF300H: CHAR O6BH, O78E1H, OAOC3H, 08600H 
TEXT 
DIM EM[ 3051 1,6] i Ge ee 
pO=260: Pl=0: P2=0: P=i4: Q=18: C= ntl eos — 
MA=0: CA=1: B=0: BE=0: Bl= =0} NL= 3: FI=0: FF=0: FX=0 
FOR 1=3 TO 30 — fe : 

K=33-I aes 

EM(I,0,OJ="": £M[K,1,0]="" 

FOR J=1 TO INT[O.34+1I/3] = mA 7 

EM[I,0,OJ=£M[1,0,0]+"#": €M[K,1,O]=£M[K,1,0]+"°%" 
NEXT J 
FOR J=1 TO INT[1/3]: £M[1,0,0]=£M[1,0 oe 
EM[K,1,O0]=£M[K,1,0]+"£": NEXT J | p 

FOR J=l TO INT(O. a eM[I, 0,0]= eM(L, 0 sO] +A" | 
— £M(K,1,0]= mK 1,0]+"#s NEXT J 
NEXT I 

PRINT @(0,23): ? ——* . 7 7 

FOR I=l. TO NL: SPUT PO-2*(I- 1s O26H: NEXT I: WAIT 50. 

B=0: BE=0: FI=0: FF=O | a 

SPUT PO,32 — | 
PO=PO+P1: P1l=0 — 

IF B=l THEN Bl=Bl+l: IF Bl=l1 THEN Bl=0: B=0: BE=0 
L=0: SGET PO+40,L: IF L¢>32 AND L< 742 THEN GOTO 860 
PRINT £M[P,0,0]; TAB (Q+6)3£M[Q,1,0] _ 

SPUT PO,026H+MOD[B1,2] is 
IF Q- -P>7 AND RND?0.7 AND CX1500+100*CA THEN a cele. 22) s"#oxe8" ly 
C=C+2: IF C400 AND C<1500+100*CA AND Q- -P?6 THEN Q=Q-1: P=P+tl ) 
IF C)1500+100*CA AND Q-P<20 THEN P=P-1L: Q= Qe 

IF C%y1800+100*CA THEN GOTO 500 7 

FG=FG+1: FG=FG LAND 15: IF FG <2 THEN FG= ae 

IF FG=BG THEN GOTO 450° 
COLOUR FG,BG: CA=CAtl: IF MOD[CA- l de QO THEN ‘BG= 8- BG: COLOUR FG, BG: NL= with 
C=0 

IF BG=7 AND FG=10 OR FG=11 OR FG=3 OR FG=5 THEN FG=12: COLOUR FG,BG 
IF CZ400 OR C>1500+100*CA THEN GOTO 600 
IF RND?0.95 THEN 7 @(P/2+Q/2+RND*4+2,22);"de": MA=MA+1: GOTO 530 _ 
IF CA>1 AND BE=0 AND RND70.97 THEN BE=1: ? SCE Tet ie NEES Bey Ee MA=MA+ 1 
IF BE>O THEN BE=BE+1: IF BE=40 THEN BE=0 
IF BE70 AND BE=(24-(INT[{PO/40])) THEN B=l: FOR I=-3 TO 3: ‘SPUT PO+l, O2DH: NEXT I 
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720 
730 


880 
890 


920 


\ 


IF CAZ3 OR FI>O OR RND<0.95 THEN GOTO 5/0 

Fl=l: FX=INT[(P/2+Q/2+RND*4+2)+0.5 | 

? @(FX,21);"hi"3: 2? @"DLL";"jk": FF=O: MA=MA+1 | 

IF FIDO AND 22-FI>INT[PO/40] AND (MOD[PO,40]=FX. OR MOD[PO,40]=FX+1) THEN FF=FF+1 
IF FIDO THEN FI=FI+1: IF FI?20 THEN FI=0: FF=0: FX=0: GOTO 600 

IF FF?6 AND INT[PO/40]<(22-FF) THEN GOSUB 910 

P=P+INT[RND*2.99]-1: Q=Q+tINT[RND*2.99 ]-1 


IF Q-P‘-1 THEN Q=Q+1: P=P-1 


IF (CZ400 OR €>1500+100*CA) AND Q-P<1 THEN Q=Q+1: P=P-1l 
IF P<3 THEN P=3: GOTO 650 | 

IF P>30 THEN P=30 

IF Q&3 THEN Q=3 

IF Q>30 THEN Q=30 . | | 
A=KEY[O]: A=CRF[O]: IF AS>CRF[O] OR B=1 THEN GOTO 350. 
IF A=2291 THEN; Pl=-1: GOTO 350 

IF A=2547 THEN Pl=1: GOTO 350 

IF A=21235 AND PO>80 THEN Pl=-80: GOTO 350. 
IF A=18163 AND PO<800 THEN P1=40: GOTO 350 | 
IF A“>17907 THEN GOTO 350 oo Skene 

P2=P0+40 | | 

L=0: SRUT P2-40,32: SGET P2,L:/ SPUT P2,063H 

IF L<>32 AND L< >42 THEN GOTO 780 

P2=P2+40: IF P2<960 THEN GOTO | 740 

GOTO 350 | 

IF L&<026H OR L=98 THEN SPUT P2,062H: GOTO 7/70 

SPUT P2,42: IF L=064H THEN on P2+1,32: GOTO 850 

IF L=065H THEN SPUT P2-1,32 — , 

IF L=067H THEN SPUT P2-1,32: BE=0 | 

IF L=066H THEN SPUT P2+1,32: BE=0 : 

IF L=068H THEN SPUT P2+1,32: SPUT P2+40,32: SPUT P2+41,32: FI=0 - 

IF L=069H THEN L=065H: SPUT P2+40, 32: SPUT P2+39,32: FI=0: GOTO 800 

MA=MA-1: COLOUR FG,BG: GOTO 350 ~ | | 

WAIT 150: NL=NL-1: IF NLYO THEN TEXT : GOTO 320 

2? "yOU LET THROUGH 'MA 

2 "SCORE="';C*5-50*MA 

a | 

WAIT 150: RESTOR : CHAR : TEXT}: GOTO 10 

FOR I=(22-FF) TO INT[PO/40] STEP -1 | 
SPUT 1*40+FX,02BH: NEXT I: GOTO 860 


Canyon- use the left and right cursors to move the plane, F to move. 
forwards, R to go back, and E to fire. Destroy the enemy aircraft. 
Beware the beamers (skeltal outlines) and jet planes (these fire 


back). 
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RDFORM Gray. 


This programme — can be used to initialise Ramdisc with a blank 
directory. It also works on normal disks and is a quicker way of 
clearing the directory than using format. It does not remove the 
boot track. Please use with care. | | 
10 TEXT : ? @"C"3;"CDOS Ramdisk Format Utility 1.0 (C) 1987": ?. 
20 DIM BL100],¢NC2),XC20) ! | _ | | 
3@ AX=ADREXCOII: AB=ADRCBLOI]) 

4Q@ REM *** MACHINE CODE ROUTINE *** 

5Q DATA 0420H,0618@0H, @D@QQH,@1401H 

60 DATA O380H,0440H, 06550H , @4F2H 

7@ DATA @O4D2H, G@CQOF1H,@704H,@A13H 

80 DATA @1701H, O@592H, O460QH ,0146@1H | | < 

90 DATA @380H,GA14H,O146F8H,O1@FSH a 

1@@ FOR I=AX TO AX+38 STEP 2 a 

112 READ IAQ: MWDCIIJ=I1AQ | 

120 NEXT I : —— : = 

130 REM *** INPUT DRIVE *** ea 

14@ INPUT 1"Drive ",D: ? | = all 

15@ INPUT 1"Are you sure",$ANS , _ 

160 IF #ANS="Y" THEN GOTO 190 

170 IF #ANS="y" THEN GOTO 190 | | 

189 STOP ~~. Oo 7 | \ 

19@ DC=MWDCO@S382H+D#2I] ‘Drive data os 8 

260 BS=MWDCDC] '! sectors / track _ 

21Q@ NB=MWDCDC+2)] | total sectors 

220 DS=MWDCDC+4) ' directory start. 

25@ ND=MWDCDC+4] ' number of entries 

240 BPS=MWDC@46362H+D*#2] #' bytes / sec 

250 REM *** CLEAR BUFFER «** | oo 

26Q@ FOR I[=@ TO 600 | 

278 MEMCAB+I11=0 

28@ NEXT I 

290 REM *#** CALCULATE NUMBER OF SYSTEM SECTORS **+* 

300 SS=DS+ND*464/BPS | 

310 SB=SS/8-1 

320 SR=MODCESS,8) 

33Q@ BR=@: TMP=128 | 

54@ IF SR=@ THEN GOTO 370 

350 BR=BR+TMP: TMP=TMP/2 

360 SR=SR-1: GOTO 340 | 

370 REM **#* CLEAR SECTORS TO END OF DIR ##* 

380 FOR I=@ TO SS | 

390 CALL AX,1,D#2546,1*BPS,AB,BPS 

40@ NEXT I 

410 REM *** SET BIT MAP FOR DIRECTORY *** 

426 FOR I=0 TO SB 

430 MEMCAB+I9=255 

431 MEMCAB+I+13=BR 

44Q@ NEXT I 

46@ CALL AX,1,D*254,BS*BPS,AB,NB/8 

470 %? : ? "Done" . 

480 END 


i 


oe 


DISKNAME 


C.J. YOUNG 


Puts a name on the disk for use by PDIR etc. 


REM 

REM HHH KHEHHEEHHER 
REM 
REM 
REM 
REM 
REM 
REM HHH KEHHE HE HEH 


ft 
* 
ne 
DISK NAME * 
* 
* 


kK KK OR 


REM 
, TEXT | 
- 2? "Disk name program" 


? “Input Drive ? "; 
IK=KEY(O] | : 
IF IK=@: GOTO 130 
IF IK<48: GOTO 130 
IF IK>Si: GOTO 130 
DRV=IK—-48 
? DRV 
DIM BL99] 
DIM #NMC9] 
DIM MCL10] 
AMC=ADRCIMCLOII 
AB=ADR(BL[@I] 
REM 
DATA 0420H ,0619@H, @D@QQH ,@14601H 
DATA @380H,@460H,0655G8H ,@ 
REM 
FOR x=@ TO 12 STEP 2 
READ @Q | 
MWDCAMC+X 1=0 
NEXT X 
REM | 
INPUT £19"Name ";$NMCQ] 
REM | 
CALL AMC,@,DRV*¥256,0,AB,44 
IF MWDCABIJ: GOTO 430 
FOR X=@ TO 19 
MEMCAB+X+2]=MEMLADRCSNMCQG11+XI 
NEXT X | 
CALL AMC,@FFH, DRV*254,0,AB,64 
? "Ok. ul 
END | 
>? " Can’t name a SYSTEM Disk" 
STOP 


‘> 


ee 


DISK VERIFY PROGRAMME BY C.J. YOUNG | 
verifies disk and flags any faulty sectors | | 4 


| 


t 
4 


1Q@ REM 

PO REM EHH HHHHEEHEH 
3@ REM * % 
46 REM * DISK % 
20 REM * * 
6@ REM * Verify * 
76 REM * x 
8G REM HEHHHHERHEHH 
°2 REM 

100 TEXT. 


110 %? “CDOS Disk Verify program" 

120 INPUT £1;"Drive ",DRV. 

13@ DRV=MODCDRV, 4] | 

146 7? 

150 REM +*«#«+« | 

1690 REM #*#** Machine code *** 

170 REM **«* 

160 DIM MCC4] 

190 AMC=ADRIMCLOI] 

200 X= 

210 READ @Q 

220 IF Q=@: GOTO 270 ~ 

2350 MWDCAMC+X1=0 | —— Le Se ts | a 
240 X=X+2 | rae a a 
25@ GOTO 210 | _— - 
266 DATA 0420H,045180H, O@SCSH,O585H , O@D540H, Q380H, a 
27 REM *## 

28Q@ REM *** Get diac pointers #*#** 

290 REM *#+* 

30@ P1=MWDCOS362H+DRV¥21 'Pointer 1 

310° P2=MWDL@46372H+DRV#¥21 'Pointer 2 

5320 PS3=MWDC@6382H+DRV#21 ‘Pointer 3 

330; REM *** : 

34@ REM *#** Get infomation **+* 

350! REM *xx | a 

360 BPS=P1 ! Bytes per sector 

3/7@ SID=MWDECP2+4] ‘Sides 

580 SPT=MWDECP3+0] 'Sectors per track 

39@ SEC=MWDCP3+2] 'Sectors 

400 SOD=MWDEP3+4] ‘Start Of Dir 

4160 FIL=MWDCP3+6] ‘Files | 

420 REM *** 

430 REM #** Calc *#** 

446 REM *#*+* 

45@ TRK=SEC/SPT ‘'Tracks 

460 BPT=BPS*SPT ‘Bytes per track 

47@ BYT=BPS*SEC ‘'!Bytes 

490 REM «** 

49@. REM *#** Display infomation *** 

3006 REM **+ 


[S210 


She emteve ~ ern ng, 
ela Ks 


310 


720 
338 
740 
258 
760 
370 
380 
2790 
500 
618 
520 
530 
540 
650 
560 
5/7@ 
680 
690 
706 
710 
720 
730 
740 
738 
750 
770 
786 
790 
800 
818 
820 
B30 
846 
85a 
840 
87@ 
880 
890 
900 
918 
920 
938 
948 
958 
960 
97@ 
980 
996 
1400 
1010 
1020 
1030 
1040 
1050 


? "Bytes per sector ";BPS 

? "Sectors per track "3;SPT 

? "Tracks "s TREK 

? "Number Of Files = "3FIL 

> 

REM **+* 

REM *** Buffers **#* 

REM *** 

BLN=INTCBPS/46]+1 ‘Buffer length 
DIM BFTCBLN*¥16)] ‘' Track Buffer 
DIM BFSCBLNI : Sector Buffer 
DIM MAPCBPS]J ! Bit map 

DIM BDR(C44*FIL/46+1] ‘'Dir Buffer — 
DIM #FC2] $ File Name 

REM #** 


REM *** Pointers *** 

REM **+* 

ABT=ADRCBFTCOI) 
ABF=ADRCBFS(LOI] 
AMP=ADRCMAP[@OI I 

AD=ADRC BDRIOI 1 

ERR=0 

ERF=1 ‘Error Flag 

ERS=6 'No Of Sector Errors 
ERW=0 'No Of Write Errors | 
ERE=0 'No Of Read Errors 
AE=ADRCERR]I | 
CAL=@ 

Wi=ADRCICALI+2 

W2=ADRCCALJ+4 

MX=65536 

REM **#* 

REM *#** read bit map #*** 

REM *#*+* 

T=1 

S=0 

GOSUB 1158 

CALL AMC ,@,C1,C2,AMP,SEC/8,AE 
IF ERR: ? "Can’t read bit map 
REM x*** 
REM *** Read Directory *** 
REM *#+* 

S=SOD-16 

GOSUB 1159 

CALL AMC,@,C1,C2,AD,FIL*#64,AE 


IF ERR: ? "Can’t read Directory" 


REM *** 
REM *#* Track test *** 
REM **+# 
FOR T=@ TO TRK-1 
S=0 


GOSUB 1158 

CALL AMC ,@,Ci1,C2,ABT,BPT,AE 
IF ERR: GOSUB 1230 
NEXT T 


PS? 4 


10468 
107@ 
148@ 
1090 


1140. 


1110 
1120 
113@ 
1140 
1150 
11468 
1178 
1180 
1198 
1266 
1210 
1220 
1230 
1240 
1250 
1268 
12768 
1280 
1298 
1380 
1319 
1320 
1338 
1340 
~1350 
1368 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
14460 


1470 


14890 
1490 
1500 
1516 
1520 
1530 
154@ 
155@ 
1560 
157@ 
1580 


IF ERF: ? STOP 
? 

? £°999’°ERS:" 
IF ERS<>1: ? 
? as vie 


2 £°999°ERWs" 


“No Errors": 


Sector Error’; 
12 on He 
Ss 5 


Write Error"; 


IF ERW<>1i: ? "“s"s 
? 

END 

REM *«*«+* 

REM #** Calc *** 
REM *+*+* 


CAL = (16*MX+DRV*256) #MX” 
CAL=CAL+T*BPT+S*BPS 
f1=MWDCW1 J 
C2=MWDEW2 I 
RETURN 
REM *#+# 
REM *#+# 
REM *** 
ERF=0 
FOR S=@ TO SPT-1 

GOSUB 1150 

Q2=T*#SPT+S | 
SIU=BITCMAPLOI ,Q2]) 'In use ? 
CALL AMC,@,C1, C2, ABF ,BPS,AE 

IF ERR: GOSUB iSia 

ELSE GOSUB 1340 

NEXT S 
RETURN 
REM **+# 
REM *#* Write sector *** 
REM *** 
CALL AMC,255,C1,C2,ABF,BPS,AE 

IF ERR: GOTO 1429 
RETURN 
REM *** ; 
REM *#* Write: ‘Error HEH 
REM *«*+# | 
ERS=ERS+1 
ERW=ERW+1 © 
GOSUB 1798 
? "Write Error"; 
GOSUB 184@ 
RETURN 
REM #*#*#* 
REM #*##* Read Error-— Try Write *#*# 
REM *#*+* 
ERS=ERS+1 

IF SIU: GOTO 1620 
FOR Q=@ TO BPS-l1 

MEMCABF+01=6 
NEXT @ 


Track Error *** 


1g -12 


1598 
1608 
1610 
1620 
1630 
1648 
1658 
1668 
1678 
1680 
1490 
1700 
171@ 
1720 
1738 
1748 
1750 
1760 
1770 
178@ 
1790 
1880 
1810 
1820 


1836. 


1840 
1850 
1840 


1865 


1870 
18890 


18990 


1900 
1910 
1920 
1930 
1940 


1950 


1940 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


CALL AMC, 255,C1,C2,ABF,BPS,AE 
IF ERR: GOTO 1700 

RETURN 

REM **+* 

REM *** Read Error *** 

REM **+# 

ERE=ERE+1. 

GOSUB 1790 . ; af 
? "Read Error": 

GOSUB 1840 

RETURN 

REM *** 

REM **#* Read/Write Error *** 
REM x*«** 

ERW=ERW+1 

ERE=ERE+1 

GOSUB 1798 

? "Read & Write Error’; 

GOSUB 1840 

RETURN 

REM *#* 

REM *** Track/sector number Ralahal 
REM *** ; 

2? £'9O9D'TS"/"S£° 99° Ss" us 


RETURN 


REM *«** 
REM *«** File Name *** 
REM «## 
7Z=SOD+ (FIL*64/BPS) 
IF T*16+S<ZZ: GOTO 1990 
FOR Z=@ TO FIL-1 
7Z=AD+Z*64 | 
IF MWDCZZ1=0:. GOTO 1960 
FOR Z1=ZZ+16 TO ZZ+31 STEP 4 
IF T¥16+S<MWDECZ1]1: GOTO 1950 
72=MWDEZLI+MWDEZ1+2) 
IF T*¥16+S<Z2: GOTO 2010 
NEXT Z1 
NEXT Z 
? 7 
GOTO 2000 
? " In Directory” 
RETURN | 
$FCQJ=""! 
FOR II=2 TO 10 
$F (@1=$F COI+“ZMEMCZZ+11120 
NEXT II 
? " In File: "$F(Q] 
RETURN 


yar 


MDEX software for the Cortex. 


MDEX ( Marinchip Disk Executive ) is a disk operating. system 
Similar in some respects to CPM. It was originally developed for 
the T.I. range of computer boards using the TMS99QQ proccessor. 
It has been modified by M.FP.E. in England for use on the Cortex. 
M.P.E. .no longer wish to support MDEX and have handed the system 
to the Cortex User Group. The Group have been unable: to trace 
Marinchip in the States and are therefor offering = to 
Cortex User Group members at a much reduced price, 1% of its 
Original value, assuming no copywrite is payable. = | 


The system available. 
MDEX CORE :- | £18. BD 


The operating system includes a Boot disk for loading the nucleus 
which contains all input output drivers and file handliing soft- 
ware. Also included on the system disk are file ‘and disk 
maintenance utilities, a debug monitor, file copy utilities with 
wild-card facilities and a disc BASIC similar in many respects to 
Microsoft Basic. Also included is a SMB hes line orientated con- 
text editor EDIT similar to CPM’s ED. | : i: 


ASM & LINK :—- Assembler and Linker = = ——  —— £10. @@ 


ASM is a relocatable assembler which supports the } full 
instruction set of the TMS9995. It accepts standard TI mnemonics 
in a form essentially compatible with TI assemblers, and produces 
a TI standard tag format output file. Conditional assembly is. 
also supported, as is comprehensive expresive evaluation = at 
assembly time. ASM is very fast assembly speed being over 680 
lines per minute. _ Ne eee eo ae 
LINK allows several object files generated by ASM or a compiler 
to be linked together to form an executable programme. Programmes 
of any size can be built. | 


SYSGEN :—- System generation Kit | | ; : a £10.22 


This 1s a toolkit for modifying MDEX itself and will be needed if 
you want to reconfigure the terminal, printer, or disk handlers, 
Or if you want to install MDEX for different hardware. Sysgen 
includes all the source listings for hardware dependant software. 


WORD :- Word processor 7 a £10.00 


Word 1S a powerfull text processing programme. It takes text from 
a file produced with EDIT or WINDOW, and produces a neatly 


formatted document. It fetures user control of all formatting 
parameters, macros with parameters, library files, user defined 
stings, automatic section numbering / page numbering, index, 


headings and footings etc. 


MDEX-PDS :- Ail of the above systems in one package £30.00 


1S 14 


—_ 


SPL :- System programming language -- =.  — — £10.0@ 


A “systems programming language much in the style of "C". Allows 
in line assembler and many other tricks needed for systems or 
industrial programming. , 


ake wei let 


FORTH :- Be 815. 88 


Fig forth with file ‘handlin extensions, four ‘editors; full 9995 | 
assembler, over 202 screens of source code, hate areal FOr nShey. 


compiler etc. i 
| | 


NAUTILUS :- Forth cross compiler £18.08 


Compiles. Forth systems to varying ‘target hardware ‘configurations. 
Allows use of multiple source files. This software can. ‘produce 
fully ROM-able code for a jrange of microproccessors. Chose 
targets from 6502, 6800, 98080, 7280, 98084/88, 468000, 1802, 28, 
6301/6801, 9900/9995 etc. | Targets £10.00 each. 


f 
| 


META :- Compiler gener ator a | a —  £18.80° 


An automatic compiler. sitdieiag“eiea it a description of 
language and details of the code generating rules and out comes a 


compiler for the language. META can be used to generate macro— 


PROCES ests) assemblers, ea ald and brain strain. 


~ 


QBASIC :- pos _ | £15 BO 


A structured compiler Basic wich is fully~ code compatible “with 
the popular CBASIC for CPM. Has 31 character names, ~ WHILE—-WEND, 
formatted output, line ‘numbers only ‘required on refered to 
ststement lines etc. Output file can be linked with other files 
produced by QBASIC or ASM. 


PASCAL :- > g, — £18, 8 


An adaption of the Per Brinch Hansel sequential ‘pascal. 


WINDOW :- _ _ : en — al me Pe — £15.00 
A fully featured screen editor, incorparating on-line help. — 
facilities, a virtual” memory system memory system for large files 
optional automatic. indentation and word wrap, global search and 


replace facilities, horizontal scrolling: and some text - formatting 
functions. Very easy jto use. Thais iS a superb editor. 


SPELL :- | £10.00 
A spelling checker that can be used with any editor or text file. 
It comes complete with a large dictionary can be added to by the 


user. 


All the above MDEX software is now available from the Cortex User 
Group at the normal address. 


1s -1S 


Pacer | | | | QBASIC. N D Osmond. : 


Abasic\ is a true compiler for basic,which runs on the MDEX 
operating system. It is very fast and lends its self to structured 
programming. According toa the manual it is compatible to CBASIC,i've 
yet to find out. 


The Q@BASIC disk contains the compiler,plus the @BASIC library which | 
is a set of: routines used by QBASIC to form the final | 


executable programme. With interpretive Basic it is resident 
in the computers memory thus using memory plus the executing | 
programme. By using. the Q@basic library | Q@BASIC links only 


what's needed making a more compact programme. 


A feature of Q@BASIC is the ability to link several QBASIC &/or 
assembly programmes together into an executable programme, therefore 
you can have your own set of standard programmes stored on disk tor 
use when designing your new programme. More of this later. | Ce ae 


I will describe thow to compile your own programmes & the language 
syntax. | 

The Q@BASIC disk is in drive 1 and the work disk is in drive 2. — 
First, three files have to be created on drive 2.I1f we call our 
programme TEST then our files will be:-- | | | | 


TEST.BAS _ _ | this will hold the source pragramme 


TEST. REL relocatable code used by the linker 
TEST _ the executable programme. 


Note the suffix .BAS & .REL 8 _ 

Once the executable programme TEST has been compiled it can be 
transfered, if required to drive 1,to run the programme just type in” 
the name & it will run. | | 7 | a 


The sequence of events is as follows: - 

The file TEST.BAS would be put into-one of the editors in MDEX-Window 
or Edit, you would then write your QBASIC programme into it & save the © 
file,the compiler would be called,ie QBASIC 2/TEST.¢(the prefix 2/ — 
denotes drive Z2/ right/sh) tlhe compiler --would then write cade 
to TEST.REL. Next you would lilnk the programme,ie QLINKER 2/TEST 
which would take the file 2/TEST.REL & pick up the necessary 
library routines plus other QBASIC or assembly programmes & write the 
executable output to the file 2/TEST.The system linker will then | 
produce a memory map for the programme 2/TEST. & exit to 
MDEX.Simply type in the programme name _ and the programme will be 
executed. | | | | | | 


Programme Syntax. 


Line numbers need ~~ not be used except on GOSUB or GOTO which due 
to structured nature of QBASIC are not used often.If programme lines 
are very long they may be continued into the next line by the 
addition of a backSlash "\". 

The remark statement has several forms,but the most interesting is 
embedded comments.First a left curly bracket is printed oe 
then every thing. . between it . and the right curly bracket “}" is 
treated as aoremark or embedded comment,it can be in the 
middle of a statement line or continue for several lines.Neither 
form of comment - occupies space or effect the speed in the 
executable programme,in effect the compiler takes no notice of them so 
QBASIC encourages lots of remarks !!'! | 


The other interesting feature is the block IF statement. 
eg:- IF <expressian> 


aa 
v 


ELSEIF 
codel 
codéi 

ELSEIF 
code2 
code2 

ELSE 
codes 

ENDIF 


When the block IF statement is executed, the <expression> is 
evaluated according to the same rules as a single line IF THEN if the 
value is a non zero the code following the IF statement will be 
executed upto the ENDIF,if zero the code will be skipped,until an 
ELSEIF or ELSE or ENDIF iS reached.Therefore programmes can be 
structured very easily. 


Variables are of two types and can Sil Characters long 


Real variables A AC PAYROLL #£MAIN.LOOP. COUNTER 


Integer variable A% AC% PAYROLL*® MAIN.LOOP.COUNTER% 


String variable AS ACS PAYROLLS MAIN.LOOP. COUNTERS 


Also all the above may be cibecrinted variables. 


a 


t 
t 


Le 


4 
“Yt i 


P hs Bg ee nt aetna Stee nee =o = 


Sample pgm. 
{Read the keyboard using 
the Qbasic library routines 
Constat% Conchar%,which bypasses 
the normal keyboard INPUT 
routine. } 


1 | WHILE NOT CONSTAT%® © (Constat%= -1 if keyboard is pressed} 
WEND | : ) | | 
C%=CONCHAR% nif? (Conchar%=ASCII val of key? 
| it is stared in C% |. | } 

IF C%=65 | — {A pressed ?} 


PRINT"Please continue” 
A.FLAG%=1:R=10 
SCREEN. DISPLAYS="MENU-O" 
GOTO 100 

ELSEIF C%=66 (B)} 
SCREEN. DISPLAYS="MENU- 2“ 
GOTO 100 

ELSEIF C%=47 (C} 
SCREEN. DISPLAYS="MENU- 1" 


- GOTO 100 
ENDIF 
PRINT CHRS(S8)5" “;CHRS(8) (If A,B or c not pressed } 
GOTO i. ; {backstep on input and 
return to start 3 
100 PRINT CHRS(26) } SCREEN. DISPLAYS; \ 


R3A.FLAG% a 


END 


In the next article i will describe some of the file. handling 
statements used in QBASIC. | . 


| S- IS | | * 


tide 
cA 


RECENTLY MAPLIN (THE COMPONENT SUPPLIERS) HAVE 
MAGAZINE SEPTEMBER TO NOVEMBER 


F 
FRAME STORE SEE MAPLIN 1 
KIT THEY USE A Ve9se VIF CHIF WITCH IS = 


IN THIS o 
WITH THE CORTEX VOF BUT WILL GIVE 80 COLUMN ON SCREEN . 


w 

- 
= 
on! 


F 


OnUCED A KIT FOR A 


27 188 


EMI COMPATIBLE 


TF You PURCHASE THE 


KIT AND BUILD IT UP ON THE MAFLIN PCR THE CIRCUIT DTAGRAM WILL SHOW YO HOW 


Ta INTERFACE IT Ta THE CORTEX E BUS . 
Ta PROGRAM THE NEW VDF FROM THE CORTEX 


' 
! z 


FURTHER ARTICLES WILL FOLLOW ON HtiW 


TC IRB ICID = 74OS_ | poet 
IC QA QR =7YLSTY 
| | tsy tSyv uM 
0 A VK 

| 3 | 
tho IAG ™ a so q | 
XA feo Mmses |7__ | 
YA2 14 C E aa 6 * Serecr Brock 
XA 127.G = } 

IS / 
6 ey 
| 


MEMEN 21CC 
READY 220 


013A & 
Note | 
| 
| 
Ao 134 G H | 
At 13¢ 0 oa See ee Ca 
A2 14h O 5 aS panne 7 
OIA AN 
| | ————@ I]< Alo 
A .AICH 1000 
DI/MS = 20c0 3 3Oc Do (sb) 
D4/AlK Q2oac ZoQ Oi 
NS/AIZ = 4G 5 © . 
dat acs 248 ba 
Deeat Dee OI6< 0 
2/A\O Sac oo i 
O'/AK «179 |27¢ dL 
do/AR  I7AC D274 b7 SB) 
we 270 IAC, We 
— CoppecroR 
& Bus. ON V9928 CRAD 
NoEl wR Ar unk For i/o BLOCK ON V49BG GRRD 
Nore 2 STRAPPED UP FOR 1 WAIT STATE 


15.14 


meme eters comes ceeee come meee cme were emcee cmes eeey cee mee meee comes cums eee reese Sem ame come came 


THIS ARTICLE DEALS WITH: EXTENDING THE ADDRESS SPACE GN THE E BUS 
TO 2 M/B AND HOW TO MODIFY MEMORY CARDS TO LSE cae EXTRA ADDRESS ee 


1 CORTEX MAIN BOARD MODIFICATION. 


enets eteee Wunee came HERES aoEET SuNtE Const CuDse FOURS GUGLS GTTED GEINS Gene GEIDS GtEHE GimED GEmSY SéEPS SEDC? MEESD mele CODED GomED GEEDY cave: bene Gosen dena amos Came comm 


CONNECT PIN 1 AND PIN 19 OF IC 94(74LS244) 


CONNECT PIN 17 OF Ic 94 Ta PIN 12 OF IC 64 


(THIS IS A SPARE CRU OUTPUT BIT) | 
(c) CONNECT PIN 3 OF IC 94 To E BUS CONNECTOR PIN 9c: 
THIS IS ALL THAT IS REQUIRED TO BE DONE ON THE CORTEX MAIN BOARD 


E BUS MEMORY MAP USE 


mneme Cate Quand Ge=D teEDe Dubey OvEDT antas SETS C-=PTE Senn Sknde EEEES tee amas Onsen queens coeus coem 


NoTe 2 Nore 2, 
PRGEO PAGE | 
0 000 | 
Nore | 


Nore t 


>thO 000 
pik Tals 


Comex iNTERNAL. with 


CORTEX INTERNAL f 


Nore 1 


! 2SbK NO 

‘Seas | SB AOD 
OFFFE 

> 920000 


FoR USE with EKPAAS (ON CAROS THAT De SOT DEcobE 
ExTRA ADDRESS LINE © 


NOTE 2 SI2K MEmoRy PAGE 1 FoR USE LDITH sala CARDS 
THAT NAVE EXTRA LIDE DECODE 


Nore Si2K menietes Page O OEFAUX BLacle ON Serre rt ON 


15.20 


> MODIFICATION TQ MP 


E MEMORY CARDS “MOL 


2’ TO FAGE IN AT FAGE 1 


NOTE-THE ORIGINAL DIAGRAM FOR THIS 


CARD IS INCQRRECT 5a MODIFY 


AS FOLLOWS 
(a) CUT TRACK LEADING Ta G2 LINK 


(b) CUT TRACK 


BETWEEN E BUS CONNECTOR 128 AND IC 1 PIN 


FROM —€ BUS CONNECTOR é6C 


—) . 


Ce) CUT TRACK BETWEEN IC 1 FIN A AND IC 4 FIN & 
(gd) CONNECT E BUS CONNECTOR 9c TO IC 1 PIN c 
(e) CONNECT IG 1 PIN 4 To oz LINK 
(£4) INSTAL GZ LINK 
= MODIFICATION Ta MPE MEMORY CARDS “MOL A’ TO PAGE IN AT FAGE 9 
(a) CLIT TRACK BETWEEN E BUS CONNECTOR 4c AND GZ LINE 
(bh) CONNECT E BUS CONNECTOR 9C TO G2 LINK 
(c) INSTAL GZ LINK 
4 MODIFICATICN TO TM71é MEMORY CARD(CORTEX USERS CLUB CARIN) “MOD 1° TO 
PAGE IN AT PAGE 1 | 
(a) CUT TRACK BETWEEN E BUS CONNECTOR 11A AND FIN 9 OF IC 2 (74504) 
(hb) CONNECT PIN ? OF IC 2(74L504) TOE RLIS CONNECTOR #C 
Ce) CUT TRACK BETWEEN IC 2(74L504) FIN AND FIN 1g OF Ic 1(74L800) 
(d) CONNECT FIN 12 OF IC 1(74L800) WITH LK PULL UP RESISTOR TO 
+ SUPPLY , 
Ce) CONNECT PIN 13 OF IC 1(74LS00) WITH OIOne To FIN z OF Ic 2 
(74LS04) THE POSATIVE END GF THE DIODE Ta ic 2 
(6) CONNECT PIN 12 OF IC 1(74LS00) WITH A SECOND DIGDE TO PIN & 


aF Ic 2(74L504) THE POSATIVE E 
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MODIFICATION TO ™714 MEMORY CARD “Mon 
USE STEFS Sc > Gd ; Se AS ABOVE 

(a) CONNECT WITH DIODE E BUS CONN 
THE POSATIVE END aF THE DIODE 


HOW To USE EXTENDED ADDRESS 


WHEN THE CORTEX Is 
SWITCH Ta PAGE 1 USE : 
LI Riz.,20000 
SEBO 7 
BR @>OO8O (RETURN) 


IN BASIC 100 BASE 9 
110 CRE(7)=1 
Ta SWITCH BACK TO PAGE © USE 


LI Riz.20000 
SEZ 7 | 
BR @>0080 (RETURN) 
IN 100 BASE 0 
110 CRB(7)=0 
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TO FAGE IN AT PAGE 9 


EcTaR 9C 
To E Bus 


TO PIN 13 OF Ic 1¢(74L500) 
CONNECTOR ?C 
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a STRAP sepa 
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LtP10—-DT7F 


| Mo& x (mee) 


be ee 
| = Mog 


un 2 


ey 


Mod & (mé) 


be 
IC 


Qe. 


15.22 


we UNIVERSAL MOUSE AND KEYBOARD INTERFACE 


THE CIRCUIT DIAGRAM FOLLOWING a BE BUILT UP ON A EUROCARD SIZE 
ROARD . IF A & BIT MOUSE INTERFACE IS REQUIRED USE IC“s Leda Ser 7s im 
215,164, 17; is 217.20 

IF A KEYECARD INTERFACE IS REQUIRED USE ItC*sS 1,2,20 , 
* HAS THE FACILITY TQ RESET THE COUNTERS TO A KNOWN VALUE , 
COMPUTER RESET LINE OR BUTTON THREE ON THE MOUSE THIS 
BY LINKS 1 AND 2 2 7 By 
IF A KEYBOARD IS; USED THIS CAN BE A 7 BIT OR S 

IF A 7 BIT KEYBOARE 
THE FOLLOWING IS A M/C 


BREAL 
11,12 
THE INTERFACE 
EITHER BY THE 
FACILITY 


BIT PARALLEL GUTPUT 
IS USED THE. & BIT CAN BE SET LOW WITH LINE 3 
EXAMPLE ON, HOW TO ACCESS THE CIRCUIT 

LI Riz.> 1000 . 
STCR R120 


DEVICE 


2 44 BIT wae 


OR STCR R18 S BIT VALUE 
LI Riz, >1020 © | Re 
STCR R2,0 14 BIT VALUE 
OR STCR R28 | © BIT VALUE | , ee 
LI Riz.,>1040 £BASE ADDRSSS UF KEYBOARD — 
STCR R33. = BIT VALUE . 
OR STCR Rs. 7) 7 BIT VALUE 
CIR STCR Ro. |. 3 BIT MOUSE KEYS 
RT RETURN | 
QTHER WISES FOR THE CIRCUIT CAN BE FOR ANY POST WICNAL READING AS IN 
CUNTROL CF SATELITE DISH » DRILL BED CONTROL . TURTLE | CONTROL | 
SEVERAL OF THESE COUNTERS CAN BE BUILT AND USED IN A ROBOT To po ALL 
YOUR HOUSWORK OVER CHRISTMAS OR EVEN CONTROL YOUR HI-FI FROM YOUR CORTEX 
IF YoU mc NOT WISH TO BUILD THIS CIRCUIT TEXAS ee HAVE 
PRODUCED A NEW IC WHICH WILL DO THE SAME JOR . SEE BELOW --— | 
Ter } | _TM9 : 
Smart Parts™ from. : 
| 
Smart Parts” are designed to provide multi- 
qility 10a taiari port” ip lnkcavy deans Tl ASIC | a 
will become a TI standard product with full devices and is configurable in several modes so as to 
_ characterisation and qualification data. U : Sanches 
These solutions are facilitated by TI's ASIC tech- Direction discrimination. 
nology where a wide varicty of SN 74/54 functions Pulse width measurement. 
arc seeny coced as cells in the 3, 2 and | micron Ned frequency measurement functions. 
libraries se provide the ideal building blocks for mplemented in one of the single level metal 
poeta of single chip solutiqna to » widely used HOR OS gate big he » the THCT 2600 has been in 
. ae ea ane of a Smart Part" is the THCT spraatag mots Parte" pani el 
eer Peale dere or eee patie Paleo ae Beaten incremental encode interface t 
applications. Th sng device replaces 14 TTL Micro ee ek c.g. timer. a : 4p 
TEXAS INSTRUMENTS THCT 12316 TRIPLE INCREMENTAL E | | : 
ee eee ee AD ENCOUEN INSTRUMENTS 
Texas Instruments Ltd Tel: (0234) 270111 
Manton Lane Telex: 82178 
Bedford Technical Enquiry 
MK41 7PA - Service 
Tel: (0234) 223000 
APOLOGY 


FOR NOT PRINTING THE CORRECT ADDRESS 
HAS NOW BEEN CORRECTED . IF ANY 
= PLEASE SEND THE ALTERATICN TCO ME 


WE MUST APOLOGISE TO MR R M LEE 
QR CORRECT PRICE FOR HIS SOFTWARE THIS 
QTHER READERS HAVE A CHANGE OF ADDRES 
(E. SERWA) 
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